home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / ex68exec.bat < prev    next >
DOS Batch File  |  2000-07-11  |  2KB  |  83 lines
  1. ECHO OFF
  2. CLS
  3. '▼旧パスの保存
  4. set opath=%path%
  5. set ozmusic=%zmusic%
  6. '▼ＣＤのパスを設定
  7. set path=\;\BIN;\SYS;\QS;\XB
  8. set WEBCACHE=\BIN\WEBCACHE\
  9. '▼ＣＤのシークの不具合にパッチを当てる?!
  10. set SEKP_FG=1
  11. \BIN\SEKP_CHK>nul
  12. if NOT EXITCODE 0 GOTO SEKPL1
  13.     '▼常駐していない.常駐
  14.     set SEKP_FG=0
  15.     \BIN\SEEKPAT -D>nul
  16. :SEKPL1
  17. '▼ＭＰＵキャッシュがＯＦＦでないと動かないものを設定
  18. \bin\cacheoff pic.r pi.r>nul
  19. '▼画面設定
  20. KT cncn -fct23 >nul
  21. '▼スプリアス割り込みを潰す
  22. KT SPURIOUS >nul
  23.  
  24. '▼タイトル表示
  25. screen 1,3,1
  26. KT C -C >nul
  27. KT 1 >nul
  28. KT P -m -n -w ziwa.wl -y -s3 \TTL1.PIC>nul
  29. 'kt wait 15>nul
  30. KT P -m -n -w ziwa.wl -y -s3 \TTL2.PIC>nul
  31. 'kt wait 15>nul
  32.  
  33.  
  34. :SKIP1
  35. '▼Ｚ-ＭＵＳＩＣの曲のあるところ
  36. SET zmusic=\MUSIC
  37.  
  38. PCM8 > NUL
  39. ZMUSIC -G
  40. kt rand 4 rand > NUL
  41. if %rand% == 0 CD \MUSIC\MEDAROT||COPY MEDAROT.ZMS OPM>nul||CD \
  42. if %rand% == 1 CD \MUSIC\STARDUST||COPY STARDUST.ZMS OPM>nul||CD \
  43. if %rand% == 2 CD \MUSIC\KIT||COPY SAYONARA.ZMS OPM>nul||CD \
  44. if %rand% == 3 CD \MUSIC\ESMB||COPY ESMB.ZMS OPM>nul||CD \
  45. set rand=
  46. kt wait 20>nul
  47. '▲ランダムＯＰ終わり
  48.  
  49. '▼カレントをクイックスタートディレクトリに
  50. CD \QS
  51.  
  52. '▼dshellの起動
  53. DSHELL MOKUJI.DOC /T"電脳倶楽部 2000年8月号（第147号）" /0-4186 /1-9C48
  54. '▼おしまいのメッセージ出す
  55. '▼終わってからの処理
  56. ZMUSIC -R>nul
  57. '▼PCM8の取り外し
  58. PCM8 -R>nul
  59. \bin\cacheoff -r>nul
  60. if NOT "%SEKP_FG%" == "0" GOTO SEKPL2
  61.     '▼起動時,常駐していなかったので...
  62.     \BIN\SEEKPAT -r>nul
  63. :SEKPL2
  64. '画面クリア
  65. SCREEN 0
  66. '▼コンソール設定
  67. kt cncn
  68. '▼パスを戻す
  69. SET path=%opath%
  70. SET zmusic=%ozmusic%
  71. if NOT %zmusic% == %%zmusic%% GOTO ZML1
  72.     SET zmusic=
  73. :ZML1
  74. '▼いらない環境変数を初期化
  75. SET opath=
  76. SET SEKP_FG=
  77. SET ozmusic=
  78. SET CNCNF=
  79. SET CNHLP=
  80. '▼ルートをカレントに
  81. CD \
  82.  
  83.